Aminet 6/Aminet 6 - June 1995.iso/Aminet/util/cli/0Utils13.lha/0Utils/.TestSuite

Text File | 1995-04-05 | 2.5 KB | 291 lines

FailAt 11


echo "*nScriptName*n"

;echo    >t:1 "ScriptName*nwhy"

;execute t:1

echo   >t:2 ".key dummy*nScriptName*nwhy"
execute t:2

SRun "ScriptName*nwhy"
wait 1

echo "*n I/O*n"


set file `Open con://// WRITE`
if warn
 why
endif
WriteLn $file "Hello World!*n"
if warn
 why
endif
wait 1
Close $file
if warn
 why
endif
set file `Open .Testsuite READ`
if warn
 why
endif
ReadLn $file lines 2
if warn
 why
endif
Close $file
if warn
 why
endif
unset file

echo "*n ExpandArgs, Touch, Suffix*n"

ExpandArgs ~(#?.#?)
if warn
 why
endif

Touch T:2 T:3
if warn
 why
endif

Suffix A:b/c.xxx
if warn
 why
endif

Examine RAM:Env
if warn
 why
endif

SetOwner RAM:Env 0
if warn
 why
endif

Yes lines=5
if warn
 why
endif

echo "*nExists*n"

Exists T:1
if warn
 why
endif
Exists T:1 NAME
if warn
 why
endif
Exists T:1 FULL
if warn
 why
endif
Exists T:3
if warn
 why
endif
Exists T:3 NAME
if warn
 why
endif
Exists T:3 FULL
if warn
 why
endif

echo "*nVolName*n"
VolName ""
if warn
 why
endif
VolName T:1
if warn
 why
endif
VolName T:1 Volume
if warn
 why
endif
VolName T:1 Device
if warn
 why
endif
VolName T:3
if warn
 why
endif
VolName T:3 Volume
if warn
 why
endif
VolName T:3 Device
if warn
 why
endif


echo "*nPathPart/FilePart*n"
echo A:B/C -----
FilePart A:B/C
if warn
 why
endif
PathPart A:B/C
if warn
 why
endif
echo A:B/  -----
FilePart A:B/
if warn
 why
endif
PathPart A:B/
if warn
 why
endif
echo A:B   -----
FilePart A:B
if warn
 why
endif
PathPart A:B
if warn
 why
endif
echo A:/C  -----
FilePart A:/C
if warn
 why
endif
PathPart A:/C
if warn
 why
endif
echo A:C   -----
FilePart A:C
if warn
 why
endif
PathPart A:C
if warn
 why
endif
echo :B/C  -----
FilePart :B/C
if warn
 why
endif
PathPart :B/C
if warn
 why
endif
echo :B/   -----
FilePart :B/
if warn
 why
endif
PathPart :B/
if warn
 why
endif
echo :B    -----
FilePart :B
if warn
 why
endif
PathPart :B
if warn
 why
endif
echo :/C   -----
FilePart :/C
if warn
 why
endif
PathPart :/C
if warn
 why
endif
echo :C    -----
FilePart :C
if warn
 why
endif
PathPart :C
if warn
 why
endif

echo "*nTackOn*n"
Tackon a: b c
if warn
 why
endif
Tackon a/ b .c
if warn
 why
endif
Tackon a b -c
if warn
 why
endif
Tackon a /b
if warn
 why
endif
Tackon a/ /b
if warn
 why
endif
Tackon a: /b
if warn
 why
endif
Tackon a:c :b
if warn
 why
endif
Tackon a:c c:b
if warn
 why
endif


echo "*nGetWord*n"
GetWord  1 a b
if warn
 why
endif
GetWord -1 a b
if warn
 why
endif
getWord  0 a b
if warn
 why
endif
GetWord  3 a b
if warn
 why
endif
GetWord -3 a b
if warn
 why
endif

delete t:[1-3]


FailAt 10